home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 April / 1993-04.d64 / seq file printer (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-01-01  |  540 b   |  21 lines
  1. 5 poke53280,6:poke53281,6:print"[147]"
  2. 10 print "[147]":d=8
  3. 20 print:f$="":input "filename";f$:if f$="" then end
  4. 30 open 15,d,15:open 8,d,8,"0:"+f$+",s,r":close 8:input#15,e,e$:close 15
  5. 40 if e then print e$:goto 20
  6. 50 print "s[146]creen or p[146]rinter?"
  7. 60 get k$
  8. 70 if k$="s" then 100
  9. 80 if k$="p" then 150
  10. 90 goto 60
  11. 100 open 8,d,8,"0:"+f$+",s,r"
  12. 110 if peek(653)=1 then 110
  13. 120 get k$:if k$="_" then close 8:goto 20
  14. 130 get#8,a$:if st=64 then close 8:goto 20
  15. 140 print a$;:goto 110
  16. 150 open 8,d,8,"0:"+f$+",s,r":open 4,4,7
  17. 160 if peek(653)=1 then 160
  18. 170 get k$:if k$="_" then close 8:close 4:goto 20
  19. 180 get#8,a$:if st=64 then close 8:close 4:goto 20
  20. 190 print#4,a$;:goto 150
  21.